home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 027a / foxcolor.zip / SETCOLOR.PRG next >
Text File  |  1991-05-11  |  2KB  |  49 lines
  1.     *********************************************************************
  2.     *  This program was created from the UTCOLOR.DOC file to test the   *
  3.     *  UTCOLOR.PRG program.  To see how UTCOLOR works just DO SETCOLOR  *
  4.     *  from the command window.                                         *
  5.     *********************************************************************
  6.  
  7.     ** The following COLOR variables and coding requires the use of the
  8.     ** UTCOLOR.DBF file and allows the use of the UTCOLOR.PRG color-
  9.     ** picker program.
  10.     
  11.     SET TALK OFF
  12.     
  13.     PUBLIC MBACK, MTEXT, MSAYS, MMENU, MTITL, MBOXS, MHIGH, MHOTK, MGETS,;
  14.         MERRMSG, MWRNMSG, COLRAREA, WINDOWNM, MDELAST
  15.     
  16.     STORE SPACE(10) TO WINDOWNM
  17.     COLRAREA = 25   
  18.     SELECT (COLRAREA)
  19.         USE UTCOLOR                   && This database is a standard
  20.     LOCATE FOR PICKED <> ' '
  21.     IF .NOT. FOUND()
  22.         LOCATE FOR NAME = 'MONOCHROME'
  23.         REPLACE PICKED WITH 'X'
  24.     ENDIF
  25.     STORE TRIM(BACK) TO MBACK
  26.     STORE TRIM(TEXT)+'/'+MBACK TO MTEXT
  27.     STORE TRIM(SAYS)+'/'+MBACK TO MSAYS
  28.     STORE TRIM(GETS) TO MGETS
  29.     STORE MGETS TO MDELAST     
  30.     STORE TRIM(MENU) TO MMENU
  31.     STORE TRIM(BOXS) TO MBOXS
  32.     STORE TRIM(TITL) TO MTITL
  33.     STORE TRIM(HIGH) TO MHIGH
  34.     STORE TRIM(HOTK) TO MHOTK
  35.     STORE TRIM(ERRMSG) TO MERRMSG
  36.     STORE TRIM(WRNMSG) TO MWRNMSG
  37.     USE
  38.     SET COLOR OF NORMAL TO &MTEXT           && NORMAL=All SAY commands
  39.         SET COLOR OF MESSAGES TO &MMENU     && MESSAGES=Disabled menu bars
  40.         SET COLOR OF TITLES TO &MTITL       && TITLES=Active object titles
  41.         SET COLOR OF BOX TO &MBOXS          && BOX=Borders (not BOX command)
  42.         SET COLOR OF HIGHLIGHT TO &MHIGH    && HIGHLIGHT=Selected objects
  43.     SET COLOR OF INFORMATION TO &MHOTK      && INFORMATION=Hot keys
  44.         SET COLOR OF FIELDS TO &MGETS       && FIELDS=All GET commands
  45.     DO UTCOLOR
  46.     
  47.     SET TALK ON
  48.     RETURN
  49.